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بسم الله الرحمن الرحيم 
قال تعالی " و قل ربي زدني علما" 
الخوارزميات الجزء الأول 
نبدأ بتعريف الخوارزمية بشكل عام: 
الخوارزمية (۳٣۲|۲هعاة)‏ هي مجموعة من الخطوات أو العمليات المنطقية التي تؤدي لحل مسألة ما. 
المثال الأول: برنامج نظام الانتخاب 


لنفرض وجود عدد م من المرشحين نريد أن نحسب عدد أصوات الناخبين لكل منهم و طباعة عدد الأصوات لكل مرشح 
الحل: 


Const Nn=20; 
Index:1..20; 
Type mat=arrau[index] of integer; 
Procedure voter(var a:mat); 
Var i:integer; 
Begin 
For i:=1 to Nn do 
A[i]:=0; 
Readln(i); 
While(i<>0)do 
Begin 
If (1<=i) and (i<=n)then 
A[il:=a[i]+1; 
Readln(i); 
End; 
For i:=1 to n do 
Writeln('mat ',l,'=",a[i]); 
End; 
المثال الثاني: باستخدام بنية المصفوفات إجرائية إظهار عدد صحيح بشكل معكوس‎ 
N=1234 سے‎ N=21 
Type mat=array[1..10] of integer; 
Procedure reverse (a:mat; n:integer); 
Var |,j:integer; 


Begin 

l:=0; 
While(N<>0)do 
Begin 

l:=i+1; 

A[i]:=n mod 10; 
N:=n div 10; 
End; 

For j:=1 to i do 
Wwrite(a[j]); 
End; 

Begin 
reverse(a,N); 
end. 
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المتال الثالث: إجرائية تكرارية تحول من عدد عشري إلى عدد ثنائي 
Procedure bin2dec(x:integer);‏ 
Var |,k:integer;‏ 


Begin 

= 
While(x<>0)do 
Begin 

A[i]:=x mod 2; 
X:=X div 2; 
i:=i+1; 

end; 

for k:=i-1 downto 1 do 
write(a[k]); 
end; 


المثال الرابم: إجراء تكراري يحول من ثنائي إلى عشري 


210 
101=1*2" +0 x 21 +1 ×2 =1 +0 +4 = )5 م4(‎ 


Function dec2bin(x:integer):integer; 
Var res, i:integer; 


Begin 

Res:=0; i:=0; 
While(x<>0)do 
Begin 


Res:=res+ x mod 10* power(i); 
X:=X div 10; i:=i+1; 
End; 
Dec2bin:=res; 
End; 
المثال الخامس: المصفوفات‎ 
1 


Mat[100][100]:integer; 
n,i,j,x1:integer; 


read(n); 
X1 <0 
| <><>_-1 
while(isn) الخوارزمية تقوم بحساب مجموع عناصر ما تحت القطر الرئيسي (المثلث‎ 
| >1 
while(j<1) 

yT ا ا‎ (n+1) 
x1 o x1+mat[il[ljl; اوا ج ا‎ 1= e کو ا‎ | _ _ — FM = 
H2 — 
EET حح‎ (n) 
¡| > > س‎ +1; 
write(x1); 

و 


إذا عدد عمليات الجمع هي 


I 8‏ 
و درجة العقيد هي من مرتبة .٠‏ 
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2 


Mat[100][100]:integer; 
n,i,j,xz:integer; 
readn(n); 

×) <_0 

| >1 

While(isn) 

j <-1 


الخوارزمية تقوم بحساب مجموع عناصر الأعمدة الثلاثة الأولى من المصفوفة 
while(js3)‏ 
W3 qun 2‏ 
(n (‏ 0 = 311 = 3 ف =1 ا x < x+mat[il[j]; E‏ 
j +1;‏ —><_| 
1+¡ >_< | 


Write(x2); 
.٠” إذاً عدد عمليات الجمع هي 3 ودرجة التعقيد من مرتبة‎ 


3 
Mat[100][100]:integer; 
n,i,j,xa:integer; 
read(n); 

X3 <_0‏ 
j <n‏ 
while(j21)‏ 
X3 <——x;+mat[n-j+1][];‏ 
الخوارزمية تقوم بحساب مجموع عناصر القطر الثانوي للمصفوفة ;1-زس>< j‏ 
RES (a)‏ ا | write(X3);‏ 
إذاً عدد عمليات الجمع هي ۸ ودرجة التعقيد من مرتبة ۸. 


4 


Mat[100][100] 
n,i,j,x,:integer; 
read(n); 

XxX <0 

¡i >1‏ 
While(isn)‏ 
الخوارزمية تقوم بحساب مجموع عناصر ما فوق القطر الرئيري(المثلث العلوي للمصفوفة المربعة) anl‏ 
while(j>i)do‏ 

x, <— x,+mat[i] [j]; A-1) = کڪ ا‎ Fe 4 yi e, E سح‎ . 


j >-1 = - o) 7( 


| < ¡+1 E e 1 +2, 1 ملاحظة:‎ 
Write(X4); 


FE 


إذاً عدد عمليات الجمع هو ودرجة التعقيد من مرتبة ۸. 
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المثال التاسع: حساب القاسم المشترك الأكبر لعددين صحيحين موجبين: 
Unsigned int gcd(Unsigned int m, Unsigned int n){‏ 
Unsigned int rem;‏ 
While(n>O){‏ 
rem=m%n;‏ 
m=n;‏ 
n=rem;‏ 
1 
return (mM);‏ 
المثال العاشر:حساب القاسم المشترك الأكبر لعددين صحيحين موجبين بطريقة إقليدس: ۱ 
Function gcd (m,n:integer):integer;‏ 
Begin‏ 
If(m=n)then‏ 
gcd:=m‏ 
else‏ 
begin‏ 
if(m>n)then‏ 
m:=m-n‏ 
else‏ 
n:=n-m;‏ 
gcd:=(m,n);‏ 
end;‏ 
end;‏ 


المثال الحادي عشر: مصفوفات 
لتكن لدينا مصفوفة N]1.."[]1..١[‏ من الأعداد الطبيعية تحتوي على م" عنصر بلا أي ترتيب تريد تحويل هذه المصفوفة إلى 
مصفوفة مفروزة وفق الفرز التالي: 
- يجب أن يكون العناصر مرتبة في كل سطر: 
M[x][yi<s M[x][y+1] all x and y‏ 
- يجب أن تكون العناصر مرتبة في كل عمود: 
M[x][y]i<s M[x+1][y] all x and ¥‏ 
اكتب إجرائية فرز المصفوفة وفق الترتيب السابق وما هو تعقيد الإجرائية. 


الحل: 
بنية المعطيات هي كالتالي: 
Type matrix=array[1..n,1..n] of real;‏ 
إجرائية فرز المصفوفة في كل سطر: 
Procedure sortline(var m:matrix; n:integer);‏ 
Var k,i,j:integer;‏ 
Begin‏ 
For k:=1 to n do‏ 
For i:=1 to n do‏ 
For j:=1 to n-1 do‏ 
If(m[i,j]>m[1,j+1])then‏ 
Begin‏ 
Temporary := m[i,j];‏ 
ml[i,jl:=m[[i,j+1];‏ 
m[i,j+1]:=temporary;‏ 
end;‏ 
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n+ (n —1) =° *م-‎ = 0) ( 


إجرائية فرز المصفوفة في كل عمود : 
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Procedure sorthorizontal(var m:matrix; n:integer); 
Begin 

For k:=1 to n do 

For i:=1 to n-1 do 

For j:=1 to n do 
If(m[i,j]>m[i+1,j])then 
Begin 

Temporary := m[i,j]; 
mli,jl:=m[[i+1,j]; 
m[i+1,j]:=temporary; 


المتال الثاني عشر: تعقيد الخوارزميات 
ليكن لدينا التابع : والمطلوب ايجاد تعقيده بدلالة ؟ 


ه٠‏ نلاحظ بأنه لدينا حلقة واحدة تمتد من 1 إلى م 
عند كل دخول بهذه الحلقة نقوم بتنفيذ عملية ضرب واأحدة 
٠‏ فيكون التعقيد على الشكل: 


المتال الثالت عشر: تعقيد الخوارزميات 
ليكن لدينا التابع : 


المطلوب: إيجاد تعقيد التابعح بدلالة م٠‏ 
٠‏ تبدأً الحلقة بالقيمة م وعند كل مرور نقسم على 2 
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end; 
end; 

a ma—]l # a mM—] 
DIOS 
1 11 اح‎ =1 =1 
p =1; 
for(int i = 1; i <n; i++) 
{ 

p=p*n; 
2_100 


int res = 1; 
factor =X; 
while (n>0) 


if((n mod 2) == 1) 

res = res * factor; 
factor = factor * factor; 
n =n div 2; 


{ 


} 
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ه٠‏ عند المرور الأول يكون حجم المسالة : 
n‏ 
ر 
4 


٠‏ عند المرور رقم ¡ تكون يكون بعد المسالة من مرتبة 


J 
: على فرض أن ز هو المرور الأخير ضمن الحلقة السابقة‎ ٠ 
تكون قيمة م مساوية للصفرء عندها ولكي نتمكن من حساب قيمة ز يتوجب علينا ايجاد حل للمعادلة لوغارتمية التالية:‎ ٠ 


نأخذ لوغارتم الطرفين < 1 2 رر < 1 _ 


زر 
(j -1(‏ = )۸( ع0[ > )2( log, (n) = log, (21) > 10g, (n) = (j-1) * log,‏ 


٠‏ تكون قيمة ز كالتالي: 
j =log,(n) +1‏ 
٠‏ يوجد عمليتي ضرب ضمن الحلقة وعملية قسمة »عمليات الضرب والقسمة التي يتم تنفيذها ضمن كل دخول بالحلقة هو 
3 عملیات 
٠‏ بالتالي يكون تعقيد الخوارزمية كالتالي: 3+ Cost = 3* (log, (n) +1) =31log, (n)‏ 
mm» Cost = O(log, (n))‏ 


ليكن لدينا التابع التالي والمطلوب: ايجاد تعقيد التابع بدلالةم ٠‏ 
fori = 1 to mM‏ 


for j = 1 to q 
for k = 1to n 
X=X*2; 
e : كلفة الحلقة الداخلية‎ ه٠‎ 
mL : e  » 
I كلفة الحلقة الوسطى:‎ ٠ 
Þ3 3 30 1 كلفة الحلقة الخارجية:‎ ٠ه‎ 
k= j=1 
Cost 93 3 34 ٣ ڪڪ‎ Cost= >| کک ور‎ Cost = > q*n 
k=1 j=1 k=1 j=1 k=1 


>< Cost=m*q*n 
و على فرض بأن "=۹=" يكون التعقيد أو عدد العمليات الناجم عن تنفيذ هذه الخوارزمية هر م*"*"‎ ٠ 
جس‎ Cost = 0) 
إذاً تعقيد الخوارزمية هو من مرتبة ”م.‎ 
المثال الخامس عشر: تعقيد الخوارزميات‎ 
ليكن لدينا الخوارزمية التالية:والمطلوب إيجاد تعقيد التابع بدلالةم:‎ 
for i = 1 to n-1 
for j =i+1 ton 
for k = 1 to j 
{ 


m = m+1; 
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J 
3 كلفة الحلقة الداخلية:‎ 


k=1 
و‎ 
j=i+1k=1 
TT 
i=1 j=i+1k=1 
n1 n j n1 n n i n n n i 
c= = == 
i=1 j=i+1k=1 i=1 =+ 1 1 i+1 i+1 1 1 
Cost = اون ت س ا‎ = gD _i+D, ج‎ 
i=1 1 1 i=1 
o 1 2 1 ا‎ 3 i ا‎ mض>‎ Cost x O(n?) 
i=1 i=1 2 i=1 2 i=1 


إذا درجة التعقيد من مرتبة ”". 


المتال السادس عشر: تعقيد الخوارزميات 
ليكن لدينا الخوارزمية التالية:والمطلوب إيجاد تعقيد التابع بدلالةم: 
for i=1 to n‏ 
if( odd(i) == true)‏ 
begin‏ 
for j=1 to n‏ 
X=X+1;‏ 
for j=1 to i‏ 
y=¥*2;‏ 
end;‏ 
نلاحظ بأنه يوجد حلقتين داخل الشرط » تقوم الحلقة الأولى بتنفيذ عمليات جمع بينما تقوم الحلقة الثانية بتنفيذ عمليات ضرب لذا 
سوف نقوم بحساب تعقيد عمليات الجمع على حدة › تم حساب تعقيد عمليات الضرب ويكون تعقيد الخوارزمية هو مجموع كل من 
عمليات الجمع: 
يكون تعقيد عمليات الجمع على الشكل التالي: 
n odd(i) _n n odd(i)‏ 
0 ار ا 
i=1 j=1 i=1‏ 


تسان دا عاد الفر دت من ےو د ** 
2 


"n odd(i) n +1‏ 
: *«=" || < = ويكون التعقيد الناتج على الشكل التالي:(0)۸. 


i=1 


عملیات الضرب: 
"n odd(i) i‏ 


1> ا 


i=1 j=1 
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n odd(i) 
= lI i 
i=1 
=(1+3+5+7+9+...... + 2m+1) : 2m+1 <n 
أي المجموع المطلوب هو مجموع الأعداد الفردية ويكافئ مجموع جميع الأعداد - مجموع الأعداد الزوجية‎ 


n_odd(i) Ji 

1> ا 

i=1 j=1 

n odd(i) 

ت اا <« = 
i=1‏ 

_nMn+I) n 0 
ا‎ 27 


~ O(n”) سے‎ 


المثال السابع عشر: تعقيد الخوارزمية 
ليكن لدينا الخوارزمية التالية:المطلوب احسب تعقيد هذا التابع في أسوأ الأحوال بدلالقم: 
Prod:=1;‏ 
Nfor := sqr(n) * sqr(n);‏ 
for k:=1 to Nfour do‏ 
if k mod sqr(n) = O then‏ 
for j:=1 to k do‏ 
if j mod sqrt(n) = O then‏ 
for m:=1 to j do‏ 
prod:= prod *4;‏ 
٠ه‏ يتم تنفيذ الحلقة الداخلية لوحدهاز مرة وفي كل مرة تقوم بإجراء عملية ضرب واحدة . 


1 
ه٠‏ تكون كلفة الحلقة الداخلية Cost(Loop,) = 21 ٠‏ 


m=1 


٠ه‏ لا يتم تنفيذ محتوى الحلقة الوسطى إلا بشرط على على العدادز وهو أن يقبل القسمة على 71 


k 
DI بذلك تكون كلفة الحلقة الوسطى بدلالة حدها الأعلى» هي (ز)‎ ه٠‎ 


ا7 


COSfoop2 


k k 
k n n 
COSfoop2 ا‎ (J) COSfigop2 . 3 n.j 93 ر‎ 
j=1 j = j =1 


٣ 

= 

n 

٠ه‏ أما بالنسبة للحلقة الأولى فلا يتم تنفيذ محتواها إلا بشرط على العداد) وهو أن يقبل القسمة على العدد 7". 


1 ۴ ns E. E aw ok a E 
عند تحقق الشرط يتم تنفيذ عدد من العمليات من مرتبة ج الأعلى “م على الشكل‎ ٠ 
التالي:‎ 


> Cost 


loop2 


- 0( 


i 


2 2 


(n .k` ) 0 k 
Cost gy = > mm CoS = >l )ت(‎ 
loop1 2 7 loopl 2 n“ \k n 


. يتم تنفيذ الحلفة الداخلية لوحدهاز مرة وفي كل مرة تقوم بإجراء عملية ضرب واحدة‎ ٠ 


1 
Cost(Loop,) = 211: E 


m=1 
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4 n2 
n 8 5 8 8 » ك مي ۰ه‎ 
CoSfgopı = 2 ۸” بالتالي يكون تعقيد الخوارزمية على الشكل التالي:‎ ٠ 
Nn k= 


4 
سے‎ C0 = O(n) - 30 )°( = 0) ( 
14) 


المثال التامن عشر: تعقيد الخوارزميات 
ليكن لدينا التابع التالي: 
Function strange(x,n:integer):integer;‏ 
Var i,j,px,sum:integer;‏ 


Begin 

i:=2; sUM:=X; 
while(i<=n)do 
begin 

j:=2; pX:=X; 
while(j<=n)do 
begin 

pX:=pX*x; j:=j+1; 
end; 
sSUmM:=sUum+px; i:=i+1; 
end; 
strange:=sum; 
end; 


1 - ما الذي يحسبه التابع 

27 ما هی درجة تعقیده 

3- أعد كتابة هذا التابع بحيث يحسب القيمة نفسها و لكن بعدد عمليات اقل 
4- ما هي درجة تعقيد التابع الجديد 


الحل: 
التابع يقوم بحساب: 8 
ا ا چو چک # 
1= 
التابع يقوم بحساب مجموع رفع لقوة ¡ من 1 إلى م بالنسبة للعدد × 
درجة تعقيد التابع: 
و Ti 1 Tn‏ 
e‏ : 
j — 1 =» 0n (‏ ) ج ) ) 
۳ | 
i=2‏ 2= 1=2 


كتابة التابع السابق بعدد عمليات أقل: 
Function strange (x,n:integer):integer;‏ 
Var‏ 
Begin‏ 
px:=1; sum:=0;‏ 
for i:=1 to n do‏ 
begin‏ 
PX:=pX*X; sumM:=sum+px;‏ 
end;‏ 
strange:=sum;‏ 
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درجة تعقيد التابع الجديد: 


3 
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end; 


~01 


